inherit MAGELLAN__WIDTH MAGELLAN__ATTRIBUT 
method MAGELLAN__WIDTH constructor {name gene args} {
	this inherited $name $gene
	set this(value) 100
		if {$args != ""} {
		set this(value) [lindex $args 0]
	}
}
method MAGELLAN__WIDTH mutation {} {
	set this(value) [expr int (rand () *50 +51) ] 
}
method MAGELLAN__WIDTH value {} {
	return [list FCT WIDTH $this(value) ]
}

inherit MAGELLAN__HEIGHT MAGELLAN__ATTRIBUT 
method MAGELLAN__HEIGHT constructor {name gene args} {
	this inherited $name $gene
	set this(value) 100
	if {$args != ""} {
		set this(value) [lindex $args 0]
	}
}
method MAGELLAN__HEIGHT mutation {} {
	set this(value) [expr int (rand () * 50 + 51 ) ] 
}
method MAGELLAN__HEIGHT value {} {
	return [list FCT HEIGHT $this(value) ]
}

